home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C/C++ Users Group Library 1996 July
/
C-C++ Users Group Library July 1996.iso
/
listings
/
v_02_01
/
2n01056b
< prev
next >
Wrap
Text File
|
1990-11-24
|
606b
|
23 lines
FOR EACH MachinePart
DO BEGIN
FOR i := 1 TO n
DO IF (MachinePart.part# = Array[i].part#)
THEN SET Array[i].count = Array[i].count + 1;
IF (PriorMachine# <> MachinePart.machine#)
THEN BEGIN
SET GotOne := TRUE;
FOR i := 1 TO n
DO IF (Array[i].count = 0)
THEN BEGIN
SET GotOne := FALSE;
SET i := n;
END;
FOR i := 1 TO n
DO SET Array[i].count = 0;
IF (GotOne) THEN DISPLAY(MachinePart.part#);
END;
SET PriorMachine# := MachinePart.machine#;
END;